home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 February / macformat-047.iso / Demos / Picasso Interactive Demo / Data / manimaj.dxr / Internal_39.ls < prev    next >
Encoding:
Text File  |  1996-12-02  |  632 b   |  22 lines
  1. on enterFrame
  2.   global NomImage, CurrentImage, NomRep, SaveImage, flag, gDel, MEnCours
  3.   set the visible of sprite 4 to 0
  4.   set pl to NomImage & "L"
  5.   loadpalette(pl)
  6.   remapcast()
  7.   updateStage()
  8.   set MEnCours to 1
  9.   puppetSprite(4, 1)
  10.   puppetSprite(25, 1)
  11.   set cnum to the number of member ("M" & NomImage & "Z0.JPG") of castLib "zoomMaj"
  12.   set the castNum of sprite 4 to cnum
  13.   set the stretch of sprite 4 to 0
  14.   set the rect of sprite 4 to rect(43, 14, 498, 469)
  15.   updateStage()
  16.   set CurrentImage to 0
  17.   set flag to 0
  18.   set SaveImage to 0
  19.   set cname to "M" & NomImage & "Z" & CurrentImage
  20.   preLoad(cast (cname & "S"))
  21. end
  22.